home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 6
/
Amiga Format AFCD06 (Nov 1996, Issue 90).iso
/
serious
/
shareware
/
misc
/
dopus5scripts
/
newshell.dopus5
< prev
next >
Wrap
Text File
|
1996-08-29
|
665b
|
37 lines
/*
* Invoke Newshell with the current directory either that of the source
* lister or if inactive, in DefaultDir.
*
* V1.0 (5.7.96) by David Lübbren.
*
* Call: Arexx DOpus5:Arexx/newshell.dopus5 {Qp}
*/
DefaultDir = 'ram:'
OPTIONS RESULTS
PARSE ARG dopusport
IF dopusport ~= "" THEN ADDRESS VALUE dopusport
ELSE DO
SAY "No DOpus running !"
EXIT
END
SourcePath = DefaultDir
lister query SOURCE
IF rc = 0 THEN DO
PARSE VAR result handle .
lister query handle path
IF rc = 0 THEN DO
SourcePath = STRIP(result, 'B', '"')
END
END
PRAGMA('Directory', SourcePath)
ADDRESS COMMAND 'Newshell CON:30/50/630/400//alt580/14/30/30/CLOSE'
EXIT